#define P_QUE_OPH

#define P_ISEMPTYQ(q) ((q)=(q)->next)
#define P_INITQ(q) (q)->next=(q) :(q)->prev=(q)
/* next line commented out for OPP */
/*#define P_DECLAREQ(q) P_QUE q = {&q,&q}*/

STRUCT P_QUE
	next%
	prev%
ENDS

STRUCT P_DELTA
	q#(SIZEOF(P_QUE))
	key&
ENDS